object frmSend: TfrmSend
  Left = 0
  Top = 0
  Width = 555
  Height = 400
  ConnectionMode = cmAny
  SupportedBrowsers = [brIE, brNetscape7, brOpera, brSafari, brNetscape6]
  OnCreate = IWAppFormCreate
  BrowserSecurityCheck = True
  Background.Fixed = False
  HandleTabs = False
  LeftToRight = True
  LockUntilLoaded = True
  LockOnSubmit = True
  ShowHint = True
  XPTheme = True
  DesignLeft = 371
  DesignTop = 219
  object lcbAddresses: TIWDBLookupComboBox
    Left = 8
    Top = 8
    Width = 441
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    BGColor = clNone
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    FocusColor = clNone
    AutoHideOnMenuActivation = False
    ItemsHaveValues = False
    NoSelectionText = '-- No Selection --'
    Required = False
    RequireSelection = True
    ScriptEvents = <>
    UseSize = True
    Style = stNormal
    ButtonColor = clBtnFace
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    TabOrder = 0
    AutoEditable = False
    DataField = 'TOADDRESS'
    DataSource = dsMessages
    FriendlyName = 'lcbAddresses'
    KeyField = 'EMAIL'
    ListField = 'EMAIL'
    ListSource = dsContacts
  end
  object edtSender: TIWDBEdit
    Left = 8
    Top = 32
    Width = 441
    Height = 21
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    NonEditableAsLabel = True
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'edtSender'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 1
    AutoEditable = False
    DataField = 'SUBJECT'
    PasswordPrompt = False
    DataSource = dsMessages
  end
  object memMessage: TIWDBMemo
    Left = 8
    Top = 56
    Width = 441
    Height = 217
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    BGColor = clNone
    Editable = True
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    InvisibleBorder = False
    HorizScrollBar = False
    VertScrollBar = True
    Required = False
    TabOrder = 2
    AutoEditable = False
    DataField = 'MESSAGETEXT'
    DataSource = dsMessages
    FriendlyName = 'memMessage'
  end
  object btnSend: TIWButton
    Left = 8
    Top = 280
    Width = 75
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Caption = 'Send'
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'btnSend'
    ScriptEvents = <>
    TabOrder = 3
    OnClick = btnSendClick
  end
  object btnCancel: TIWButton
    Left = 92
    Top = 280
    Width = 75
    Height = 25
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    RenderSize = True
    Caption = 'Cancel'
    DoSubmitValidation = True
    Color = clBtnFace
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'btnCancel'
    ScriptEvents = <>
    TabOrder = 4
    OnClick = btnCancelClick
  end
  object cdsMessages: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'tblMessages'
    RemoteServer = MainPoolConnection
    BeforePost = cdsMessagesBeforePost
    Left = 40
    Top = 328
    object cdsMessagesPK: TIntegerField
      FieldName = 'PK'
      Required = True
    end
    object cdsMessagesTOADDRESS: TStringField
      FieldName = 'TOADDRESS'
      Size = 255
    end
    object cdsMessagesSUBJECT: TStringField
      FieldName = 'SUBJECT'
      Size = 255
    end
    object cdsMessagesMESSAGETEXT: TMemoField
      FieldName = 'MESSAGETEXT'
      BlobType = ftMemo
      Size = 1
    end
  end
  object MainPoolConnection: TArcPoolConnection
    Pool = IWServerController.PoolMain
    OnGetPool = MainPoolConnectionGetPool
    Connected = True
    Left = 8
    Top = 328
  end
  object dsMessages: TDataSource
    DataSet = cdsMessages
    Left = 72
    Top = 328
  end
  object cdsContacts: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'tblContacts'
    RemoteServer = SmallPoolConnection
    Left = 40
    Top = 360
  end
  object SmallPoolConnection: TArcPoolConnection
    Pool = IWServerController.PoolSmall
    OnGetPool = SmallPoolConnectionGetPool
    Connected = True
    Left = 8
    Top = 360
  end
  object dsContacts: TDataSource
    DataSet = cdsContacts
    Left = 72
    Top = 360
  end
  object cdsPK: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'ID'
        ParamType = ptOutput
        Size = 4
        Value = 1
      end>
    ProviderName = 'spMessagesPK'
    RemoteServer = MainPoolConnection
    Left = 148
    Top = 336
  end
end
